Адміністрація вирішила продати даний сайт. За детальною інформацією звертайтесь за адресою: rozrahu@gmail.com

Визначення типів графів. Файли.

Інформація про навчальний заклад

ВУЗ:
Національний університет Львівська політехніка
Інститут:
Інститут комп’ютерних наук та інформаційних технологій
Факультет:
Не вказано
Кафедра:
Кафедра програмного забезпечення

Інформація про роботу

Рік:
2007
Тип роботи:
Лабораторна робота
Предмет:
Дискретна математика
Група:
ПІ-12

Частина тексту файла

МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ "ЛЬВІВСЬКА ПОЛІТЕХНІКА" Інститут КНІТ Кафедра ПЗ ЗВІТ До лабораторної роботи № 8 На тему: “ Визначення типів графів. Файли.” З дисципліни : " Дискретна математика" Лектор: Сердюк П.В. Виконав: ст. гр. ПІ-12 Прийняв: Львів – 2007 Завдання: Використовуючи даний спосіб представлення графа, зчитати з файлу граф, зберегти його даним способом у програмі. Визначити якого типу є граф. У звіті описати даний спосіб задання графів. Коротко описати функції для читання/запису файлів на мові Pascal. Сформулювати переваги та недоліки даного способу представлення графу з алгоритмічної точки зору. Звіт оформити за вимогами шаблону. Варіант 5. Матриця суміжності. Перевірка на мультиграф. Короткі теоретичні відомості У програмі ви використовуємо один із способів подання графів: Матриця суміжності. Перевага даного способу – швидкий доступ до інформації: за один крок можна одержати відповідь на питання чи існує ребро з Vi y Vj. Недолік полягає у тому що незалежно від кількості ребер обсяг пам’яті становить n2. Для читання та запису файлів були використані такі функції: assign - Зв’язування файлу із файловою змінною reset - Відкриття файлу для читання rewrite - Відкриття файлу для запису read, readln - Читання з файлу write, writeln - Запис у файл close - Закриття файлу Текст програми uses crt, graph; const m=25; var i,j,n: integer; a:array [1..m,1..m] of integer; f,g:text; gtype,otype: integer; begin assign(f,'read.txt'); assign(g,'wrie.txt'); clrscr; reset(f); rewrite(g); readln(f,n); for i:=1 to n do begin for j:=1 to n do read(f,a[i][j]); readln(f); end; for i:=1 to n do begin for j:=1 to n do write(g,a[i][j],' '); writeln(g); end; otype:=1; for i:=1 to n do for j:=1 to n do if a[i][j]<>a[j][i] then otype:=2; if otype=1 then begin gtype:=1; for i:=1 to n do for j:=1 to n do begin if (a[i][j]>1)and(gtype<>3) then gtype:=2; if a[i][i]=1 then gtype:=3; end; end else if otype=2 then begin gtype:=4; for i:=1 to n do for j:=1 to n do begin if (a[i][i]=1)and(gtype<>5) then gtype:=4; if a[i][j]>1 then gtype:=5; end; end; if gtype=1 then write(g,'prostyi graph'); if gtype=2 then write(g,'multigraph'); if gtype=3 then write(g,'psevdograph'); if gtype=4 then write(g,'orientovanyi graph'); if gtype=5 then write(g,'orientovanyi multigraph'); close(f); close(g); end. Висновок: На цій лабораторній роботі я краще ознайомився із способами подання графів та вдосконалив свої вміння по використанню файлів для читання та запису інформації.
Антиботан аватар за замовчуванням

01.01.1970 03:01

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, увійдіть або зареєструйтесь.

Завантаження файлу

Якщо Ви маєте на своєму комп'ютері файли, пов'язані з навчанням( розрахункові, лабораторні, практичні, контрольні роботи та інше...), і Вам не шкода ними поділитись - то скористайтесь формою для завантаження файлу, попередньо заархівувавши все в архів .rar або .zip розміром до 100мб, і до нього невдовзі отримають доступ студенти всієї України! Ви отримаєте грошову винагороду в кінці місяця, якщо станете одним з трьох переможців!
Стань активним учасником руху antibotan!
Поділись актуальною інформацією,
і отримай привілеї у користуванні архівом! Детальніше

Оголошення від адміністратора

Антиботан аватар за замовчуванням

пропонує роботу

Admin

26.02.2019 12:38

Привіт усім учасникам нашого порталу! Хороші новини - з‘явилась можливість кожному заробити на своїх знаннях та вміннях. Тепер Ви можете продавати свої роботи на сайті заробляючи кошти, рейтинг і довіру користувачів. Потрібно завантажити роботу, вказати ціну і додати один інформативний скріншот з деякими частинами виконаних завдань. Навіть одна якісна і всім необхідна робота може продатися сотні разів. «Головою заробляти» продуктивніше ніж руками! :-)

Новини